/ Amoszine 11 / Amoszine 11 (Disk 2 of 2).adf / Paul_Huckstepp_Source.lha / Calcnewposline.AMOS

next >

view JSON data

view as text

open on a Mac

open on a PC

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 41 4d 4f 53 20 42 61 73 | 69 63 20 56 31 33 34 20 |AMOS Bas|ic V134 |
|00000010| 00 00 09 a8 16 01 06 52 | 00 24 44 49 53 54 41 4e |.......R|.$DISTAN|
|00000020| 43 45 2c 20 53 54 45 50 | 20 41 4e 44 20 41 4e 47 |CE, STEP| AND ANG|
|00000030| 4c 45 20 50 52 4f 43 45 | 44 55 52 45 53 20 00 00 |LE PROCE|DURES ..|
|00000040| 02 00 00 00 19 01 06 52 | 00 2a 42 59 20 50 2e 48 |.......R|.*BY P.H|
|00000050| 55 43 4b 53 54 45 50 50 | 20 4f 46 20 48 55 43 4b |UCKSTEPP| OF HUCK|
|00000060| 53 54 45 50 50 20 53 4f | 46 54 57 41 52 45 20 31 |STEPP SO|FTWARE 1|
|00000070| 39 39 36 20 00 00 04 01 | 06 52 00 00 00 00 22 01 |996 ....|.R....".|
|00000080| 06 52 00 3c 54 48 52 45 | 45 20 53 49 4d 50 4c 45 |.R.<THRE|E SIMPLE|
|00000090| 20 54 4f 20 55 53 45 20 | 50 52 4f 43 45 44 55 52 | TO USE |PROCEDUR|
|000000a0| 45 53 20 44 45 53 49 47 | 4e 45 44 20 54 4f 20 48 |ES DESIG|NED TO H|
|000000b0| 45 4c 50 20 50 52 4f 47 | 52 41 4d 4d 45 52 53 20 |ELP PROG|RAMMERS |
|000000c0| 00 00 0f 01 06 52 00 16 | 55 53 45 20 41 4e 47 4c |.....R..|USE ANGL|
|000000d0| 45 53 20 57 49 54 48 20 | 45 41 53 45 2e 20 00 00 |ES WITH |EASE. ..|
|000000e0| 04 01 06 52 00 00 00 00 | 09 01 06 52 00 0a 4e 55 |...R....|...R..NU|
|000000f0| 4d 42 45 52 20 31 3a 20 | 00 00 16 01 06 52 00 24 |MBER 1: |.....R.$|
|00000100| 20 20 20 20 20 20 20 20 | 20 43 41 4c 43 4e 45 57 |        | CALCNEW|
|00000110| 50 4f 53 5b 48 58 2c 48 | 59 2c 44 58 2c 44 59 2c |POS[HX,H|Y,DX,DY,|
|00000120| 53 54 5d 20 00 00 2a 01 | 06 52 00 4c 54 68 69 73 |ST] ..*.|.R.LThis|
|00000130| 20 70 72 6f 63 65 64 75 | 72 65 20 74 61 6b 65 73 | procedu|re takes|
|00000140| 20 74 68 65 20 73 74 61 | 72 74 20 70 6f 69 6e 74 | the sta|rt point|
|00000150| 20 6f 66 20 48 58 2c 48 | 59 20 61 6e 64 20 63 61 | of HX,H|Y and ca|
|00000160| 6c 63 75 6c 61 74 65 73 | 20 74 68 65 20 6e 65 78 |lculates| the nex|
|00000170| 74 20 70 6f 69 6e 74 20 | 00 00 29 01 06 52 00 4a |t point |..)..R.J|
|00000180| 74 6f 77 61 72 64 73 20 | 74 68 65 20 64 65 73 74 |towards |the dest|
|00000190| 69 6e 61 74 69 6f 6e 20 | 70 6f 69 6e 74 20 6f 66 |ination |point of|
|000001a0| 20 44 58 2c 44 59 20 61 | 6e 64 20 6d 6f 76 69 6e | DX,DY a|nd movin|
|000001b0| 67 20 53 54 20 70 6f 69 | 6e 74 73 20 64 6f 77 6e |g ST poi|nts down|
|000001c0| 20 74 68 65 20 6c 69 6e | 65 20 00 00 04 01 06 52 | the lin|e .....R|
|000001d0| 00 00 00 00 1c 01 06 52 | 00 30 54 68 69 73 20 72 |.......R|.0This r|
|000001e0| 6f 75 74 69 6e 65 20 72 | 65 74 75 72 6e 73 20 74 |outine r|eturns t|
|000001f0| 68 65 20 6e 65 77 20 70 | 6f 69 6e 74 20 69 6e 20 |he new p|oint in |
|00000200| 48 58 20 61 6e 64 20 48 | 59 20 00 00 04 01 06 52 |HX and H|Y .....R|
|00000210| 00 00 00 00 09 01 06 52 | 00 0a 4e 55 4d 42 45 52 |.......R|..NUMBER|
|00000220| 20 32 3a 20 00 00 15 01 | 06 52 00 22 20 20 20 20 | 2: ....|.R."    |
|00000230| 20 20 20 20 20 43 41 4c | 43 44 49 53 54 41 4e 43 |     CAL|CDISTANC|
|00000240| 45 5b 68 78 2c 68 79 2c | 64 78 2c 64 79 5d 00 00 |E[hx,hy,|dx,dy]..|
|00000250| 25 01 06 52 00 42 53 69 | 6d 70 6c 79 20 63 61 6c |%..R.BSi|mply cal|
|00000260| 63 75 6c 61 74 65 73 20 | 74 68 65 20 64 69 73 74 |culates |the dist|
|00000270| 61 6e 63 65 20 62 65 74 | 77 65 65 6e 20 74 77 6f |ance bet|ween two|
|00000280| 20 70 6f 69 6e 74 73 20 | 48 58 2c 68 79 20 61 6e | points |HX,hy an|
|00000290| 64 20 44 58 2c 44 59 20 | 00 00 04 01 06 52 00 00 |d DX,DY |.....R..|
|000002a0| 00 00 19 01 06 52 00 2a | 54 68 69 73 20 72 6f 75 |.....R.*|This rou|
|000002b0| 74 69 6e 65 20 72 65 74 | 75 72 6e 73 20 74 68 65 |tine ret|urns the|
|000002c0| 20 64 69 73 74 61 6e 63 | 65 20 69 6e 20 44 49 53 | distanc|e in DIS|
|000002d0| 54 20 00 00 04 01 06 52 | 00 00 00 00 09 01 06 52 |T .....R|.......R|
|000002e0| 00 0a 4e 55 4d 42 45 52 | 20 33 3a 20 00 00 14 01 |..NUMBER| 3: ....|
|000002f0| 06 52 00 20 20 20 20 20 | 20 20 20 20 20 43 41 4c |.R.     |     CAL|
|00000300| 43 41 4e 47 4c 45 5b 68 | 78 2c 68 79 2c 64 78 2c |CANGLE[h|x,hy,dx,|
|00000310| 64 79 5d 20 00 00 22 01 | 06 52 00 3c 52 65 74 75 |dy] ..".|.R.<Retu|
|00000320| 72 6e 73 20 74 68 65 20 | 61 6e 67 6c 65 20 66 72 |rns the |angle fr|
|00000330| 6f 6d 20 74 68 65 20 70 | 6f 69 6e 74 20 48 58 2c |om the p|oint HX,|
|00000340| 48 59 20 74 6f 20 44 58 | 2c 44 59 2c 20 74 68 65 |HY to DX|,DY, the|
|00000350| 20 72 6f 75 74 69 6e 65 | 00 00 21 01 06 52 00 3a | routine|..!..R.:|
|00000360| 72 65 74 75 72 6e 73 20 | 74 68 65 20 61 6e 67 6c |returns |the angl|
|00000370| 65 20 69 6e 20 41 4e 47 | 4c 45 20 61 6e 64 20 69 |e in ANG|LE and i|
|00000380| 73 20 61 6c 77 61 79 73 | 20 66 72 6f 6d 20 2d 31 |s always| from -1|
|00000390| 37 39 20 74 6f 20 31 38 | 30 20 00 00 04 01 06 52 |79 to 18|0 .....R|
|000003a0| 00 00 00 00 04 01 06 52 | 00 00 00 00 10 01 06 52 |.......R|.......R|
|000003b0| 00 18 41 20 53 49 4d 50 | 4c 59 20 44 45 4d 4f 20 |..A SIMP|LY DEMO |
|000003c0| 46 4f 4c 4c 4f 57 53 20 | 20 20 00 00 02 00 00 00 |FOLLOWS |  ......|
|000003d0| 23 01 03 aa 00 06 00 00 | 02 00 68 78 00 5c 00 06 |#.......|..hx.\..|
|000003e0| 00 06 02 00 68 79 00 5c | 00 06 00 0c 02 00 64 78 |....hy.\|......dx|
|000003f0| 00 5c 00 06 00 12 02 00 | 64 79 00 5c 00 06 00 18 |.\......|dy.\....|
|00000400| 04 00 64 69 73 74 00 5c | 00 06 00 1e 06 00 61 6e |..dist.\|......an|
|00000410| 67 6c 65 00 00 00 02 00 | 00 00 13 01 00 06 00 00 |gle.....|........|
|00000420| 02 00 68 78 ff a2 00 3e | 00 00 00 0a 00 54 00 06 |..hx...>|.....T..|
|00000430| 00 06 02 00 68 79 ff a2 | 00 3e 00 00 00 0a 00 00 |....hy..|.>......|
|00000440| 1d 01 00 06 00 0c 02 00 | 64 78 ff a2 06 86 00 74 |........|dx.....t|
|00000450| 00 3e 00 00 01 40 00 7c | 00 54 00 06 00 12 02 00 |.>...@.||.T......|
|00000460| 64 79 ff a2 06 86 00 74 | 00 3e 00 00 00 c8 00 7c |dy.....t|.>.....||
|00000470| ff c0 00 3e 00 00 00 1f | 00 00 06 01 0b b8 00 3e |...>....|.......>|
|00000480| 00 00 00 00 00 00 14 01 | 09 ea 00 3e 00 00 00 01 |........|...>....|
|00000490| 00 5c 00 3e 00 00 01 40 | 00 5c 00 3e 00 00 01 00 |.\.>...@|.\.>....|
|000004a0| 00 5c 00 3e 00 00 00 02 | 00 5c 0c 90 00 00 11 01 |.\.>....|.\......|
|000004b0| 14 46 00 54 0b b8 00 3e | 00 00 00 00 00 54 0c fc |.F.T...>|.....T..|
|000004c0| 00 3e 00 00 00 00 00 5c | 00 36 00 00 0f ff 00 00 |.>.....\|.6......|
|000004d0| 14 01 09 ea 00 3e 00 00 | 00 02 00 5c 00 3e 00 00 |.....>..|...\.>..|
|000004e0| 02 80 00 5c 00 3e 00 00 | 00 1e 00 5c 00 3e 00 00 |...\.>..|...\.>..|
|000004f0| 00 02 00 5c 0c 84 00 00 | 11 01 14 46 00 54 0b b8 |...\....|...F.T..|
|00000500| 00 3e 00 00 00 00 00 54 | 0c fc 00 3e 00 00 00 00 |.>.....T|...>....|
|00000510| 00 5c 00 36 00 00 0f ff | 00 00 02 00 00 00 04 01 |.\.6....|........|
|00000520| 02 7e 02 44 00 00 06 01 | 0c 6e 00 3e 00 00 00 01 |.~.D....|.n.>....|
|00000530| 00 00 0c 01 0e 3c 00 06 | 00 00 02 00 68 78 00 5c |.....<..|....hx.\|
|00000540| 00 06 00 06 02 00 68 79 | 00 00 40 01 02 be 00 78 |......hy|..@....x|
|00000550| 00 06 00 00 02 00 68 78 | ff a2 00 06 00 0c 02 00 |......hx|........|
|00000560| 64 78 ff 58 00 06 00 06 | 02 00 68 79 ff a2 00 06 |dx.X....|..hy....|
|00000570| 00 12 02 00 64 79 ff 4c | 00 06 00 18 04 00 64 69 |....dy.L|......di|
|00000580| 73 74 ff a2 00 3e 00 00 | 00 01 02 c6 06 90 12 ce |st...>..|........|
|00000590| 00 54 00 06 00 0c 02 00 | 64 78 ff a2 06 86 00 74 |.T......|dx.....t|
|000005a0| 00 3e 00 00 01 40 00 7c | 00 54 00 06 00 12 02 00 |.>...@.||.T......|
|000005b0| 64 79 ff a2 06 86 00 74 | 00 3e 00 00 00 c8 00 7c |dy.....t|.>.....||
|000005c0| ff c0 00 3e 00 00 00 1f | 00 00 0c 01 0e 3c 00 06 |...>....|.....<..|
|000005d0| 00 0c 02 00 64 78 00 5c | 00 06 00 12 02 00 64 79 |....dx.\|......dy|
|000005e0| 00 00 02 00 00 00 25 01 | 0c 6e 00 3e 00 00 00 01 |......%.|.n.>....|
|000005f0| 00 54 00 12 ff dc 0c 80 | 63 61 6c 63 64 69 73 74 |.T......|calcdist|
|00000600| 61 6e 63 65 00 84 00 06 | 00 00 02 00 68 78 00 5c |ance....|....hx.\|
|00000610| 00 06 00 06 02 00 68 79 | 00 5c 00 06 00 0c 02 00 |......hy|.\......|
|00000620| 64 78 00 5c 00 06 00 12 | 02 00 64 79 00 8c 00 00 |dx.\....|..dy....|
|00000630| 2b 01 0c 6e 00 3e 00 00 | 00 02 00 54 13 78 00 3e |+..n.>..|...T.x.>|
|00000640| 00 00 00 00 00 5c 00 3e | 00 00 00 00 00 54 04 76 |.....\.>|.....T.v|
|00000650| 00 26 00 1a 44 69 73 74 | 61 6e 63 65 20 74 6f 20 |.&..Dist|ance to |
|00000660| 50 6f 69 6e 74 20 44 58 | 2c 44 59 20 3a 20 00 64 |Point DX|,DY : .d|
|00000670| 00 06 00 18 04 00 64 69 | 73 74 00 64 00 26 00 04 |......di|st.d.&..|
|00000680| 20 20 20 20 00 00 1f 01 | 00 12 ff ca 0a 80 63 61 |    ....|......ca|
|00000690| 6c 63 61 6e 67 6c 65 00 | 00 84 00 06 00 00 02 00 |lcangle.|........|
|000006a0| 68 78 00 5c 00 06 00 06 | 02 00 68 79 00 5c 00 06 |hx.\....|..hy.\..|
|000006b0| 00 0c 02 00 64 78 00 5c | 00 06 00 12 02 00 64 79 |....dx.\|......dy|
|000006c0| 00 8c 00 00 26 01 13 78 | 00 3e 00 00 00 00 00 5c |....&..x|.>.....\|
|000006d0| 00 3e 00 00 00 01 00 54 | 04 76 00 26 00 17 41 6e |.>.....T|.v.&..An|
|000006e0| 67 6c 65 20 74 6f 20 70 | 6f 69 6e 74 20 44 58 2c |gle to p|oint DX,|
|000006f0| 44 59 20 3a 20 00 00 64 | 00 06 00 1e 06 00 61 6e |DY : ..d|......an|
|00000700| 67 6c 65 00 00 64 00 26 | 00 03 20 20 20 00 00 00 |gle..d.&|..   ...|
|00000710| 02 00 00 00 23 01 00 12 | ff f0 0a 80 63 61 6c 63 |....#...|....calc|
|00000720| 6e 65 77 70 6f 73 00 84 | 00 06 00 00 02 00 68 78 |newpos..|......hx|
|00000730| 00 5c 00 06 00 06 02 00 | 68 79 00 5c 00 06 00 0c |.\......|hy.\....|
|00000740| 02 00 64 78 00 5c 00 06 | 00 12 02 00 64 79 00 5c |..dx.\..|....dy.\|
|00000750| 00 3e 00 00 00 01 00 8c | 00 00 03 01 0c ca 00 00 |.>......|........|
|00000760| 03 01 02 86 00 00 02 00 | 00 00 29 01 03 76 00 00 |........|..)..v..|
|00000770| 00 e4 00 06 80 00 00 06 | 00 00 0a 80 63 61 6c 63 |........|....calc|
|00000780| 6e 65 77 70 6f 73 00 84 | 00 06 ff ff 02 00 68 78 |newpos..|......hx|
|00000790| 00 5c 00 06 ff f9 02 00 | 68 79 00 5c 00 06 ff f3 |.\......|hy.\....|
|000007a0| 02 00 64 78 00 5c 00 06 | ff ed 02 00 64 79 00 5c |..dx.\..|....dy.\|
|000007b0| 00 06 00 00 02 00 73 74 | 00 8c 00 00 02 00 00 00 |......st|........|
|000007c0| 05 01 00 4e 12 00 05 c8 | 00 00 0e 01 00 4e 12 02 |...N....|.....N..|
|000007d0| 06 80 00 06 ff ff 02 00 | 68 78 00 5c 00 06 ff f9 |........|hx.\....|
|000007e0| 02 00 68 79 00 00 0e 01 | 00 4e 12 02 05 72 00 06 |..hy....|.N...r..|
|000007f0| ff f3 02 00 64 78 00 5c | 00 06 ff ed 02 00 64 79 |....dx.\|......dy|
|00000800| 00 00 09 01 00 4e 12 01 | 05 98 00 06 00 00 02 00 |.....N..|........|
|00000810| 73 74 00 00 0a 01 00 06 | ff ff 02 00 68 78 ff a2 |st......|....hx..|
|00000820| 00 4e 12 00 06 44 00 00 | 0a 01 00 06 ff f9 02 00 |.N...D..|........|
|00000830| 68 79 ff a2 00 4e 12 00 | 06 52 00 00 02 00 00 00 |hy...N..|.R......|
|00000840| 0e 01 03 90 00 84 00 06 | ff ff 02 00 68 78 00 5c |........|....hx.\|
|00000850| 00 06 00 00 02 00 68 79 | 00 8c 00 00 02 00 00 00 |......hy|........|
|00000860| 25 01 03 76 00 00 00 9c | 00 00 80 00 00 06 00 00 |%..v....|........|
|00000870| 0c 80 63 61 6c 63 64 69 | 73 74 61 6e 63 65 00 84 |..calcdi|stance..|
|00000880| 00 06 ff ff 02 00 68 78 | 00 5c 00 06 ff f9 02 00 |......hx|.\......|
|00000890| 68 79 00 5c 00 06 ff f3 | 02 00 64 78 00 5c 00 06 |hy.\....|..dx.\..|
|000008a0| ff ed 02 00 64 79 00 8c | 00 00 02 00 00 00 0e 01 |....dy..|........|
|000008b0| 00 4e 12 02 06 80 00 06 | ff ff 02 00 68 78 00 5c |.N......|....hx.\|
|000008c0| 00 06 ff f9 02 00 68 79 | 00 00 16 01 00 06 ff e7 |......hy|........|
|000008d0| 04 00 64 69 73 74 ff a2 | 00 4e 12 02 05 b4 00 74 |..dist..|.N.....t|
|000008e0| 00 06 ff f3 02 00 64 78 | 00 5c 00 06 ff ed 02 00 |......dx|.\......|
|000008f0| 64 79 00 7c 00 00 0a 01 | 03 90 00 84 00 06 ff e7 |dy.|....|........|
|00000900| 04 00 64 69 73 74 00 8c | 00 00 02 00 00 00 24 01 |..dist..|......$.|
|00000910| 03 76 00 00 00 a0 00 00 | 80 00 00 06 00 00 0a 80 |.v......|........|
|00000920| 63 61 6c 63 61 6e 67 6c | 65 00 00 84 00 06 ff ff |calcangl|e.......|
|00000930| 02 00 68 78 00 5c 00 06 | ff f9 02 00 68 79 00 5c |..hx.\..|....hy.\|
|00000940| 00 06 ff f3 02 00 64 78 | 00 5c 00 06 ff ed 02 00 |......dx|.\......|
|00000950| 64 79 00 8c 00 00 0e 01 | 00 4e 12 02 06 80 00 06 |dy......|.N......|
|00000960| ff ff 02 00 68 78 00 5c | 00 06 ff f9 02 00 68 79 |....hx.\|......hy|
|00000970| 00 00 0e 01 00 4e 12 02 | 05 72 00 06 ff f3 02 00 |.....N..|.r......|
|00000980| 64 78 00 5c 00 06 ff ed | 02 00 64 79 00 00 0c 01 |dx.\....|..dy....|
|00000990| 00 06 ff e1 06 00 61 6e | 67 6c 65 00 ff a2 00 4e |......an|gle....N|
|000009a0| 12 00 05 42 00 00 0b 01 | 03 90 00 84 00 06 ff e1 |...B....|........|
|000009b0| 06 00 61 6e 67 6c 65 00 | 00 8c 00 00 41 6d 42 73 |..angle.|....AmBs|
|000009c0| 00 00                   |                         |..      |        |
+--------+-------------------------+-------------------------+--------+--------+